home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / cambiomosaic.xdve < prev    next >
Text File  |  1995-06-21  |  2KB  |  77 lines
  1. /* Trasformazione incrociata tra le due pagine con effetto MOSAICO in 60 FRAMES */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpIma = 'T:immagine'
  9. TmpIma2 = 'T:immagine2'
  10. XM = 2
  11. YM = 2
  12. NUMEROFRAME = 0
  13.  
  14. GETFILES '"Seleziona la PRIMA immagine"'
  15.  IF RC ~= 0 THEN EXIT
  16.   PRIMA = ADPRO_RESULT
  17.    IF PRIMA = "" THEN EXIT
  18.     LOADER "UNIVERSAL" PRIMA
  19. SAVER "IFF" TmpIma "RAW"
  20.     XSIZE
  21.      BASE = ADPRO_RESULT
  22.     YSIZE
  23.      ALTZ = ADPRO_RESULT
  24.  
  25.  GETFILES '"Seleziona la SECONDA immagine"'
  26.  IF RC ~= 0 THEN EXIT
  27.   SECONDA = ADPRO_RESULT
  28.    IF SECONDA = "" THEN EXIT
  29.    LOADER "UNIVERSAL" SECONDA
  30.     XSIZE
  31.      BASE2 = ADPRO_RESULT
  32.     YSIZE
  33.      ALTZ2 = ADPRO_RESULT
  34. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  35.                           ABS_SCALE (BASE) (ALTZ)
  36.                           END
  37. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  38.                           ABS_SCALE (BASE) (ALTZ)
  39.                           END
  40.      SAVER "IFF" TmpIma2 "RAW"
  41.      
  42. GETfile '"Path e nomebase 60 frames elaborati"'
  43. IF RC ~= 0 THEN EXIT
  44. OUTFILE = ADPRO_RESULT
  45. if OUTFILE = "" then exit
  46.   
  47.    DO i=1 to 30         /* Fase 1 */
  48. LOADER "IFF" TmpIma
  49. OPERATOR MOSAIC XSIZE (XM) YSIZE (YM) 
  50.     XM = (XM + 4)
  51.     YM = (YM + 4)
  52.     NUMEROFRAME = (NUMEROFRAME + 1)
  53. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  54.  SFORMAT "IFF"
  55.   SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  56.   SAY "Salvo il frame Num." NUMERO
  57.     END 
  58.     
  59. XM = (XM - 4)
  60. YM = (YM - 4)
  61.   
  62.    DO i=1 to 30         /* Fase 2 */
  63. LOADER "IFF" TmpIma2
  64. OPERATOR MOSAIC XSIZE (XM) YSIZE (YM) 
  65.     XM = (XM - 4)
  66.     YM = (YM - 4)
  67.     NUMEROFRAME = (NUMEROFRAME + 1)
  68. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  69.  SFORMAT "IFF"
  70.   SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  71.   SAY "Salvo il frame Num." NUMERO
  72.     END     
  73.  
  74. ADDRESS COMMAND "Delete >NIL:" TmpIma
  75. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  76. EXIT
  77.